home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / biz / dopus / Lara-theme.lha / Lara.theme < prev   
Text File  |  1992-12-10  |  2KB  |  78 lines
  1. /* D5THEME
  2.  
  3.    Lara.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'D5THEMES:Lara/Screens/'" desktop center precision image border 000000
  25.     dopus  set  background "'D5THEMES:Lara/Patterns/'" lister tile precision image border off
  26.     dopus  set  background "'D5THEMES:Lara/Patterns/'" req tile precision image border off
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus clear sound "'Bad disk inserted'"
  32.     dopus clear sound "'Close buttons'"
  33.     dopus clear sound "'Close group'"
  34.     dopus  set  sound "'Close lister'" "'D5THEMES:Lara/Sounds/Menu.8svx'" 64
  35.     dopus clear sound "'Disk inserted'"
  36.     dopus clear sound "'Disk removed'"
  37.     dopus clear sound "'FTP close connection'"
  38.     dopus clear sound "'FTP connect fail'"
  39.     dopus clear sound "'FTP connect success'"
  40.     dopus clear sound "'FTP copy fail'"
  41.     dopus clear sound "'FTP copy success'"
  42.     dopus clear sound "'FTP error'"
  43.     dopus clear sound "'Hide'"
  44.     dopus clear sound "'Open buttons'"
  45.     dopus clear sound "'Open group'"
  46.     dopus  set  sound "'Open lister'" "'D5THEMES:Lara/Sounds/Menu Popup.8svx'" 64
  47.     dopus clear sound "'Reveal'"
  48.     dopus  set  sound "'Shutdown'" "'D5THEMES:Lara/Sounds/Exit Windows.8svx'" 64
  49.     dopus  set  sound "'Startup'" "'D5THEMES:Lara/Sounds/Windows Start.8svx'" 64
  50. end
  51.  
  52. /* Set fonts */
  53. if index( apply_flags , "F") ~= 0 then do
  54.     dopus set font screen "''" 0
  55.     dopus set font listers "'diamond.font'" 12
  56.     dopus set font iconsd "'diamond.font'" 12
  57.     dopus set font iconsw "'diamond.font'" 12
  58. end
  59.  
  60. /* Set colour settings*/
  61. if index( apply_flags , "P") ~= 0 then do
  62.     dopus set pens icons 2 0 0 2 0 2
  63.     dopus set pens files 1 0
  64.     dopus set pens dirs 6 0
  65.     dopus set pens selfiles 2 1
  66.     dopus set pens seldirs 2 3
  67.     dopus set pens devices 1 0
  68.     dopus set pens assigns 2 0
  69.     dopus set pens source 1 5
  70.     dopus set pens dest 2 4
  71.     dopus set pens gauge 6 3
  72.     dopus set pens user 0
  73.     dopus set palette 0xAAAAAA 0x000000 0xFFFFFF 0x6688BB 0xEE4444 0x55DD55 0x0044DD 0xEE9900 0xEFAF4F 0x7F007F 0xFFFF00 0xCF2F00 0xFF8F00 0xFF00FF 0x9F6F3F 0x00FF9F
  74. end
  75.  
  76. /* Refresh Opus */
  77. dopus refresh all
  78.